Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/longfile/longfile.frm

Text File | 1996-08-12 | 20KB | 704 lines

VERSION 2.00
Begin Form frmLongFile
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Open File "
   ClientHeight    =   3270
   ClientLeft      =   1110
   ClientTop       =   1500
   ClientWidth     =   7005
   ControlBox      =   0   'False
   Height          =   3675
   Left            =   1050
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   7005
   Top             =   1155
   Width           =   7125
   Begin TextBox txtFilename
      Height          =   315
      Left            =   120
      TabIndex        =   11
      Top             =   360
      Width           =   2895
   End
   Begin ComboBox comboFileTypes
      Height          =   315
      Left            =   120
      TabIndex        =   6
      Text            =   "Combo1"
      Top             =   2820
      Width           =   2895
   End
   Begin DirListBox Dir1
      Height          =   1605
      Left            =   3120
      TabIndex        =   5
      Top             =   840
      Width           =   2535
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   3120
      TabIndex        =   4
      Top             =   2820
      Width           =   2535
   End
   Begin CommandButton btnCancel
      Caption         =   "Cancel"
      Height          =   375
      Left            =   5760
      TabIndex        =   2
      Top             =   1320
      Width           =   1095
   End
   Begin CommandButton btnOpen
      Caption         =   "OK"
      Height          =   375
      Left            =   5760
      TabIndex        =   1
      Top             =   840
      Width           =   1095
   End
   Begin ListBox List1
      Height          =   1590
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   840
      Width           =   2895
   End
   Begin Label Label5
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folders:"
      Height          =   195
      Left            =   3120
      TabIndex        =   10
      Top             =   120
      Width           =   690
   End
   Begin Label Label4
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Filename:"
      Height          =   195
      Left            =   120
      TabIndex        =   9
      Top             =   120
      Width           =   825
   End
   Begin Label Label3
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Drives:"
      Height          =   195
      Left            =   3120
      TabIndex        =   8
      Top             =   2580
      Width           =   615
   End
   Begin Label Label2
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "List files of type:"
      Height          =   195
      Left            =   120
      TabIndex        =   7
      Top             =   2580
      Width           =   1425
   End
   Begin Label lblFolders
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   3120
      TabIndex        =   3
      Top             =   360
      Width           =   3735
      WordWrap        =   -1  'True
   End
End
Option Explicit

' This form and its accompanying longfile.bas module allow 16-bit VB
' applications to use long file names when run in environments (Windows 95
' and Windows NT) that support them.  Set up for a call to this form is
' much like a call to a common dialog box, but with considerably less
' properties.  The properties are stored in the following structure:

'' structure for dialog box setup
'Type LongFile
'   Action as Integer         ' 1 = Open, 2 = Save
'   Color As Long             ' background color
'   DialogTitle As String     ' title bar text
'   Filename As String        ' filename for input to dialog box, output filename will be in gShortFilename and gLongFilename
'   Filter As String          ' file extension filter
'   FilterIndex As Integer    ' index into file extension filter
'End Type

' This structure is declared as LF and the declaration is global.  Note
' one major difference between this structure and that of the common dialog
' box:  the Filename string is used only to send a name to this form.  The
' string will be null upon exit from this form.  The user selected filename
' will be in two global variables, gShortFilename and gLongFilename.  Both
' will contain the full path to the filename.  Another global variable,
' gIn16BitSystem will be set to True if the system only supports short
' filenames, False if the system supports long filenames.  Use this value
' to determine which of gShortFilename or gLongFilename to use to interact
' with the system for file saves and opens.  In 16-bit Windows systems, both
' gShortFilename and gLongFilename will contain the same value.
'
' Sample setup and call:
'     LF.Action = 1     ' nothing happens until call to GetLongFilename
'     LF.DialogTitle = "Select File to Open"
'     LF.Filter = "Text (*.txt)|*.txt|HTML (*.htm)|*.htm|All Files (*.*)|*.*"
'     LF.FilterIndex = 2   ' set html as default file type
'     GetLongFilename
'
' Another example:
'     LF.Action = 2     ' nothing happens until call to GetLongFilename
'     LF.DialogTitle = "Save File"
'     LF.Filename = "foo.txt"
'     GetLongFilename
'     if LF.Action = -1 ' then user chose Cancel
'
' Since the LF structure is global, structure values remain intact between
' calls except for LF.Filename, which is cleared after each call to
' GetLongFilename, and LF.Action, which is set to zero on normal exit or
' -1 if the user selected the Cancel button.






































'============================================================================


' form level declarations for long filename support

Dim hInstKernel As Long
Dim lpGetShortPathNameA As Long
Dim lpFindFirstFileA As Long



' api calls for long filename support
Declare Function LoadLibraryEx32W Lib "KERNEL" (ByVal lpszFile As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
Declare Function FreeLibrary32W Lib "KERNEL" (ByVal hDllModule As Long) As Long
Declare Function GetProcAddress32W Lib "KERNEL" (ByVal hInstance As Long, ByVal FunctionName As String) As Long
Declare Function FindFirstFileA Lib "KERNEL" Alias "CallProc32W" (ByVal lpszFile As String, aFindFirst As WIN32_FIND_DATA, ByVal lpfnFunction As Long, ByVal fAddressConvert As Long, ByVal dwParams As Long) As Long
Declare Function GetShortPathNameA Lib "KERNEL" Alias "CallProc32W" (ByVal lpszLongFile As String, ByVal lpszShortFile As String, ByVal lBuffer As Long, ByVal lpfnFunction As Long, ByVal fAddressConvert As Long, ByVal dwParams As Long) As Long
Declare Function lcreat Lib "Kernel" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Integer) As Integer

Sub btnCancel_Click ()

   gShortFilename = ""
   gLongFilename = ""
   LF.Action = -1
   Unload Me

End Sub

' copyright 1996, Internet Software Engineering
Sub btnOpen_Click ()

   Dim szShortFilename As String * 256
   Dim p As Integer
   Dim a As Long
   Dim tmpstr As String
   Dim hFile As Integer
   Dim rtn As Integer

   tmpstr = lblFolders.Caption
   If Right$(tmpstr, 1) <> "\" Then tmpstr = tmpstr & "\"
   gLongFilename = tmpstr & txtFilename.Text

   'Convert the Long Filename to a Short Filename
   If LF.Action = 2 And Not gIn16BitSystem Then ' create the file
      hFile = lcreat(gLongFilename, 0)
      If hFile = -1 Then
     MsgBox "File error.", 16, App.Title
      End If
   End If

   If Not gIn16BitSystem Then
      a = GetShortPathNameA(gLongFilename, szShortFilename, 256&, lpGetShortPathNameA,